home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / demos / ewjdemo.dir / 00042_score script- EXIT.ls < prev    next >
Encoding:
Text File  |  1995-12-11  |  692 b   |  33 lines
  1. on mouseDown
  2.   stopAllQT()
  3.   puppetSound("ExitB")
  4.   set Lob to the number of cast "Exit.yellow"
  5.   set HiB to the number of cast "exit.red"
  6.   puppetSprite(14, 1)
  7.   set the castNum of sprite 14 to Lob
  8.   updateStage()
  9.   startTimer()
  10.   repeat while the timer < 15
  11.     nothing()
  12.   end repeat
  13.   set the castNum of sprite 14 to HiB
  14.   updateStage()
  15.   startTimer()
  16.   repeat while the timer < 15
  17.     nothing()
  18.   end repeat
  19.   set the castNum of sprite 14 to Lob
  20.   updateStage()
  21.   startTimer()
  22.   repeat while (the timer < 15) or soundBusy(1)
  23.     nothing()
  24.   end repeat
  25.   set the castNum of sprite 14 to HiB
  26.   updateStage()
  27.   puppetSprite(14, 0)
  28.   blackFrame()
  29.   sound stop 2
  30.   play done
  31.   go("none")
  32. end
  33.